home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / Sources / MacC3.3 / M2ClockA.MOD < prev    next >
Encoding:
Text File  |  1992-05-29  |  1.1 KB  |  16 lines  |  [TEXT/MEDT]
  1. IMPLEMENTATION MODULE M2ClockA;  (* WH 23.12.85; HS 21.3.91 *)
  2.  
  3.   FROM SYSTEM IMPORT ADDRESS, ADR, SETREG, INLINE, VAL;
  4.  
  5.   TYPE
  6.     DateTimeRec = RECORD
  7.                     year:      INTEGER;
  8.                     month:     INTEGER;
  9.                     day:       INTEGER;
  10.                     hour:      INTEGER;
  11.                     minute:    INTEGER;
  12.                     second:    INTEGER;
  13.                     dayOfWeek: INTEGER;
  14.                   END;
  15.  
  16.   PROCEDURE Secs2Date(seconds: LONGINT; VAR dateAndTime